﻿Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

<System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="http://www.openlightgroup.net/SeoMvc/ContentService/07/2009/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class ContentService
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function GetContent(ByVal pageName As String) As String

        Dim homeCtrl As New HomeController

        Select Case pageName
            Case "About"

                homeCtrl.About()

                
            Case "Home"

                homeCtrl.Index()


            Case Else

                Return String.Empty

        End Select

        Return homeCtrl.ViewData("Message").ToString

    End Function

End Class